Private Sub lstFields_SelectedIndexChanged(ByVal sender As Object, _
           ByVal e As System.EventArgs) Handles lstFields.SelectedIndexChanged
    ' Przeznaczenie: Wybranie nazw pl do zapytania.

    If lstFields.SelectedItem = "*" Then   ' Czy zostaa wybrana gwiazdka?
      txtQuery.Text = "SELECT * "
      Exit Sub                ' To wszystko... koczymy
    End If
    If txtQuery.TextLength = 0 Then
      txtQuery.Text = "SELECT "
    End If
    txtQuery.Text &= BracketMultiWords(lstFields.SelectedItem) & ","
  End Sub

  Private Sub btnWhere_Click(ByVal sender As System.Object, ByVal e As _
                  System.EventArgs) Handles btnWhere.Click
    ' Przeznaczenie: Dodanie predykatu WHERE do zapytania. 
    '      Dodatkowo musimy usun z listy pl ostatni przecinek.

    Dim FromFound As Integer
    Dim temp As String

    temp = txtQuery.Text
    FromFound = temp.LastIndexOf(" FROM ")  
    ' Sprawdzamy, czy jest ju sowo FROM 
    If FromFound = -1 Then           ' Jeli nie...
      temp = temp.Remove(temp.Length - 1, 1)  
      ' ...usuwamy ostatni przecinek
      ' oraz dodajemy sowo FROM i nazw tabeli
      temp &= " FROM " & BracketMultiWords(lstTables.SelectedItem)
      txtQuery.Text = temp
    End If
    txtQuery.Text &= " WHERE"   ' teraz dodajemy WHERE
    txtQuery.Focus()   ' Uaktywniamy pole, aby uytkownik mg dopisa 
                       ' reszt
    txtQuery.AppendText(" ")   
    ' Kolejno operacji chroni 
    ' przed podwietleniem zapytania
  End Sub
